home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / swagg-m / hardware.swg / 0032_Machine Model Byte.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  477b  |  19 lines
  1.  
  2. VAR
  3.   Model : BYTE ABSOLUTE $F000:$FFFE; 
  4.  
  5. BEGIN 
  6.   CASE Model OF 
  7.     $9A : WriteLn( 'COMPAQ Plus' ); 
  8.     $FF : WriteLn( 'IBM PC' ); 
  9.     $FE : WriteLn( 'PC XT, Portable PC' ); 
  10.     $FD : WriteLn( 'PCjr' );
  11.  
  12.     $FC : WriteLn( 'Personal Computer AT, PS/2 Models 50 and 60' ); 
  13.     $FB : WriteLn( 'PC XT (after 1/10/86)' ); 
  14.     $FA : WriteLn( 'PS/2 Model 30' ); 
  15.     $F9 : WriteLn( 'Convertible PC' ); 
  16.     $F8 : WriteLn( 'PS/2 Model 80' ); 
  17.   End; 
  18. END.
  19.